Option Explicit
Sub C_Sample028()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    'ǳƨ즹
    With myRng
        On Error Resume Next
        .Comment.Delete
        On Error GoTo 0
        .AddComment ("oO")				'Ѫ]w
    End With
    Set myRng = Nothing						'
End Sub
